home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 10 / PC Guia 10.iso / database / shared.dir / 01037_Script_spider drag < prev    next >
Text File  |  1996-03-14  |  432b  |  19 lines
  1. on mousedown
  2.   set omh = the mouseh
  3.   set omv = the mousev
  4.   
  5.   repeat while the mousedown
  6.     set mh = the mouseh
  7.     set mv = the mousev
  8.     set dh = mh - omh
  9.     set dv = mv - omv
  10.     repeat with i = 36 to 43
  11.       set the loch of sprite i = (the loch of sprite i)+dh
  12.       set the locv of sprite i = (the locv of sprite i)+dv
  13.     end repeat
  14.     updatestage
  15.     set omh = mh
  16.     set omv = mv
  17.   end repeat
  18.   
  19. end